home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / amitex / arexx / a2p.amitex next >
Text File  |  1997-01-20  |  2KB  |  54 lines
  1. /* Création d'un script permettant de copier les fichiers d'un
  2. répertoire vers un répertoire MSDOS, à l'aide de A2P */
  3. /* Chez Corbin, Lundi 20 Janvier 1997, version 1.00  */
  4.  
  5. options results     /* indispensable pour récupérer le résultat des macros */
  6.  
  7. signal on error     /* pour l'interception des erreurs */
  8. signal on syntax
  9.  
  10. port = address()
  11.  
  12. 'LOCK(-1)'
  13. 'ASK("Répertoire source"+CHR(10)+"(côté Amiga) ?")'
  14. source = result
  15. fin=right(source,1)
  16. if fin~='/' & fin~=':' then source=source||'/'
  17.  
  18. fichier = "RAM:COPIE.BAT"
  19. address command
  20. 'run dir >'fichier source
  21.  
  22. address(port)
  23. 'ASK("Répertoire destination"+CHR(10)+"sur le disque PC ?"+CHR(10)+"Sans le \ terminal SVP")'
  24. destination = result
  25. fin=right(destination,1)
  26.  
  27. 'UNLOCK(-1):OPEN("'fichier'"):LOCK(-1):MODEDIT(1)'
  28.  
  29. 'WRITE("if exist 'destination' goto l1"+CHR(10)+"md 'destination'"+CHR(10)+":l1"+CHR(10))'
  30.  
  31. 'LINE'; l1 = result
  32. 'GOTO(1,LINE-1):NBLINES'; l2 = result
  33. do l=l1 to l2
  34.     'GOTO(1,LINE+1):DELRIGHT(1):GOTO(25,LINE):DELRIGHT(1):IF(READCHAR(1)<>"",CUTLINE(0),0)'
  35. end
  36. 'NBLINES'; l2 = result
  37. do l=l1 to l2
  38.     'GOTO(1,'l'):WRITE("A2P 'source'"):MARK(0):ENDLINE(LINE):GOTO(COL-1,LINE):MARK(1):COPY(5,TEXTMARK(-1))'
  39.     'ENDLINE(LINE):WRITE(" 'destination'\"):PASTE(5)'
  40. end
  41. 'WRITE(CHR(10)+"cd 'destination'"):MENU("Sauver")'
  42. 'MESSAGE("Entrez la commande"+CHR(10)+"COPIER sous MSDOS pour"+CHR(10)+"transférer ces fichiers")'
  43. exit
  44.  
  45. /* Traitement des erreurs, interruption du programme */
  46. syntax:
  47. erreur=RC
  48. 'MESSAGE("Script A2P.amitex"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  49. exit
  50.  
  51. error:
  52. 'MESSAGE("Script A2P.amitex"+CHR(10)+"Erreur en ligne 'SIGL'")'
  53. exit
  54.